home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / vdtj122b.zip / DEMO8.VDM < prev    next >
Text File  |  1992-11-30  |  5KB  |  225 lines
  1. !D-WINDOW!
  2. RI(9)/VEDIT and VEDIT PLUS - Windows/
  3. M(H)            !Display header
  4.  
  5. YT/
  6. VEDIT and VEDIT PLUS can display windows in many different configurations.
  7. Vertical windows, horizontal windows, big windows and small windows.  On color
  8. systems, the window background and the text can be in color.  The user has
  9. control over window size, position and color.
  10.  
  11. First we will demonstrate some window possibilities.  Then you can create your
  12. own windows.
  13.  
  14. /
  15.  
  16. M(K)
  17.  
  18. YWB($) 1
  19. YWR(1) 40
  20. YWS($)
  21. YT/Vertical windows.  Press <Esc> to continue/
  22. XK(0)//
  23.  
  24. YWI
  25. YWB($) 1
  26. YWB(1) (.sl/2-1)
  27. YWS($)
  28. YT/Horizontal windows.  Press <Esc> to continue/
  29. XK(0)//
  30.  
  31. YJN 9 1
  32. YJN 10 0
  33. YWI
  34. YWB($) 1
  35. YWB(1) (.sl/2-1)
  36. YWR(2) 40
  37. YWS(1)
  38. YWR(3) 40
  39. YWS($)
  40. YT/Four windows with "minimal" borders.  Press <Esc> to continue/
  41. XK(0)//
  42.  
  43. YJN 9 2
  44. YWI
  45. 0YWB($) 1
  46. YWB(1) (.sl/2-1)
  47. YWR(2) 40
  48. YWS(1)
  49. YWR(3) 40
  50. YWS($)
  51. YT/Four windows with "full" borders.  Press <Esc> to continue/
  52. XK(0)//
  53.  
  54. YJN 9 1
  55. RI(8)/You have complete control
  56. over the color of each
  57. window and the color of
  58. the text in the window.
  59. /
  60.  
  61. YWI
  62. Q21YEA YEC
  63. YWB($) 1
  64. YWR(1) 52
  65. YWB(2) (.sl/2+4)
  66. YWS(2)
  67. 36YEA YEC
  68. YWS(1)
  69. Q24YEA YEC
  70. YWB(3) 10
  71. YWS(3)
  72. 80YEA YEC
  73. YWR(4) 25
  74. YWS(4)
  75. Q25YEA YEC
  76. YWB(5) (.wl/2-2)
  77. YWS(5)
  78. 97YEA YEC
  79. YWS(@)
  80. RT(8) YT/This is white on blue./
  81. YWS(1)
  82. RT(8) YT/This is green on red./
  83. YWS(2)
  84. RT(8) YT/This is red on green./
  85. YWS(3)
  86. RT(8) YT/This is black on magenta./
  87. YWS(4)
  88. RT(8) YT/This is blue on cyan./
  89. YWS(5)
  90. RT(8) YT/This is blue on brown./
  91. YWS($)
  92. Q23YEA YEC
  93. YT/Irregular shaped and colored windows.  Press <Esc> to continue/
  94. XK(0)//
  95.  
  96. YJN 9 0
  97. YWI
  98. Q21YEA YEC
  99. YWB($) 1
  100. YWR(1) 52
  101. YWB(2) (.sl/2+4)
  102. YWS(2)
  103. 36YEA YEC
  104. YWS(1)
  105. Q24YEA YEC
  106. YWB(3) 10
  107. YWS(3)
  108. 80YEA YEC
  109. YWR(4) 25
  110. YWS(4)
  111. Q25YEA YEC
  112. YWB(5) (.wl/2-2)
  113. YWS(5)
  114. 97YEA YEC
  115. YWS(@)
  116. RT(8) YT/This is white on blue./
  117. YWS(1)
  118. RT(8) YT/This is green on red./
  119. YWS(2)
  120. RT(8) YT/This is red on green./
  121. YWS(3)
  122. RT(8) YT/This is black on magenta./
  123. YWS(4)
  124. RT(8) YT/This is blue on cyan./
  125. YWS(5)
  126. RT(8) YT/This is blue on brown./
  127. YWS($)
  128. Q23YEA YEC
  129. YT/Some or all windows can be borderless.  Press <Esc> to continue/
  130. XK(0)//
  131.  
  132. YJN 9 1
  133. 7XS(100)        !Need 7 line window
  134. M(W)            !Create instruction window; set attributes
  135.  
  136. 7XS(1)        !Start with white text
  137. 0XS(2)        !Start with black window
  138.  
  139. EZY        !Clear out main edit buffer
  140. RG(8) B        !Copy text into edit buffer
  141.  
  142. EE(1)
  143. B#K
  144. I/Create your own colored window now.
  145.  
  146. Press <SPACE BAR> to change window color
  147. Press <Enter> to change text color
  148.  
  149.         --- Press <Esc> to continue ---/
  150.  
  151. B -V            !Display instructions
  152. EE(@)
  153. [            !Loop "forever" or until <Esc> pressed
  154.  
  155.     YWS(@)        !Switch to visual mode window for attribute switch
  156.     (Q1^Q2)YEA    !Switch attribute
  157.     YWS($)
  158.     -V        !Display visual mode window
  159.  
  160.     XK(0)//        !Get and decode user's key
  161.  
  162.     (Q0 = 32) [ 16XA(2) (Q2 & 127)XS(2)
  163.         ][
  164.         (Q0 = 13) [ 1XA(1) (Q1 & 15)XS(1)
  165.         ][
  166.         (Q0 = 27) JL        !Jump out of loop
  167.         ]]
  168. ]                    !End of loop
  169.  
  170. YWS(@) Q26YEA        !Set attribute in edit window
  171. YWS(1) Q27YEA        !Set attribute in lower window "1"
  172. EE(1)
  173. B#K
  174. I/To create your own windows press <Alt-W> for the {WINDOW} sub-menu.  Then
  175. press "C" to create a window.  You can create a window at the Top, Bottom,
  176. Right or Left of the current window.  Press "R" for "Right".  Next you give
  177. the window a single character name.  Press "2".  Last, you specify the size
  178. of the window.  Type "35" and <Enter> to specify a window of 35 columns.
  179.  
  180.         --- Press <Esc> to continue ---/
  181.  
  182. B -V
  183. EE(@)
  184. V
  185.  
  186. EE(1)
  187. B#K
  188. I/The built-in keystroke macro <Alt-J> lets you change the text color in the
  189. current window.  Pressing <Alt-J> toggles through 17 color combinations
  190. including white on blue, white on black and black on white.  Try it now.
  191.  
  192. <Alt-J> makes it easy to switch colors at any time and to have different
  193. colors in different windows.  The installation lets you select the initial
  194. color combination.        --- Press <Esc> to continue ---/
  195.  
  196. B -V
  197. EE(@)
  198. V
  199.  
  200. YWI            !Clear screen
  201. B#K            !Clear edit buffer
  202.  
  203. YT\
  204.         --- EGA 43 / VGA 50 LINE SUPPORT ---
  205.  
  206. If you are using an EGA adapter, you can switch between 25 and 43 line modes
  207. within VEDIT.  (With a VGA you can switch between 25 and 50 line modes.)
  208. Simply press <Alt-L> within Visual Mode.
  209.  
  210. If you have an EGA/VGA, press <Alt-L> now and the Window portion of this demo
  211. will be repeated.
  212.  
  213. --- Otherwise, press <Esc> to return to the Main Menu --- \
  214.  
  215. !D-WIN2!
  216. XK(0)//            !Get user's keystroke
  217.  
  218. (.kp(0) == 27)JM
  219.  
  220. (.kp(0) == 9728)[ (.si >= 4)[(.sl=25)[ 43YEM ][ 25YEM ] -V JP/D-WINDOW/
  221.              ][ YEN YT/This is not an EGA or VGA/ YEN ]
  222.     ]
  223.  
  224. JP/D-WIN2/
  225.